Private Sub CommandButton1_Click()

    Dim  As String
    Dim  As String

     = ThisWorkbook.Path & "\Image\"
     = "Default.jpg"

    With ListBox1
        .Selected(.ListIndex) = False
    End With

    Image1.Picture = LoadPicture(Filename:= & )

End Sub
